Dit voorbeeld neemt een datum en geeft, met behulp van de functie DatePart, weer in welk kwartaal van het jaar deze valt.
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Voer een datum in:")
Msg = "Kwartaal: " & DatePart("k", TheDate)
MsgBox Msg